 ================== Konstruktor ==================
Public Sub New()
  mAddress = "Pusty budynek"  ' pozostae dane = 0 
End Sub
